@a = (1..5);

print join(",",@a),"\n\n";
@a = sort {$b<=>$a} @a;
print join(",",@a);

